﻿<Serializable()> Public Class KOGraves
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "GRAVES"
        Armee = Armeen.DM.ToString
        Musik = "Graves"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Lähmungsschaden(1, 3)
            AnimationFeindliche("DRAKEGABE", 2)

        End If
        Lähmschaden = 3
        GabeEingesetzt()
    End Sub

    Public Overrides Sub KOLaden()
        Lähmschaden = 2
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafür sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Lähmungsschaden(1, 3)
                AnimationFeindliche("DRAKEGABE", 2)
            End If
            Lähmschaden = 3
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                Lähmungsschaden(2, 4)
                AnimationFeindliche("DRAKEGABE", 2)
            End If
            Lähmschaden = 4
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungGraves
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Graves"
        Fein = "Rätselromane"
        Nein = "Liebesromane"
        Beschreibung = New String() {"Ein dunkler KO von Dark Matter,", "er hat ähnliche Ambitionen wie", "Maverik. Es geht ihr nur um", "den Sieg."}
        Stil = New String() {"Feindliche Truppen, die", "nach einem Kampf wenige TP", "haben werden geschockt."}
        Gabebeschreibung = New String() {"Alle Feinde verlieren 1 TP und", "Einheiten mit weniger als 3TP werden", "geschockt."}
        SpezialgabeBeschreibung = New String() {"Alle Feinde verlieren 2 TP und", "Einheiten mit weniger als 4 TP werden", "geschockt."}
        GabeKosten = 3
        Spezialgabekosten = 4
        Gaben = New String() {"Plage", "Verderben"}
        Synergie = New Decimal() {2, 2, 1.5#, 1, -1, -1.5#, -1.5#, -1.5#, -2, 0.5#}
        KONamen = New String() {"AIN", "MAVERIK", "THANATOS", "FALCONE", "EAGLE", "ADDER", "EMBER", "RACHEL", "NELL", "NAPOLEON"}
        Doppelgabenamen = New String() {"Ideale", "Antagonisten Entscheidung", "Entweihung", "Memento Mori", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesätze = New String() {"Furcht ist eine mächtige Waffe. Du wirst lernen wie man sie benutzt!" _
                                , "Bevorzugst du denn Tod so sehr?" _
                                , "Du musst alles geben, wenn du gewinnen willst." _
                                , "Du bist schlecht vorbereitet, wenn du mich schlagen willst." _
                                , "Ein schöner Fortschritt. Leider zwecklos!" _
                                , "Mach dich bereit."}
        Siegsätze = New String() {"Das war es schon. ...Ich hab dich überschätzt." _
                                , "So eine Schande. ...war viel zu leicht." _
                                , "Du hättest dir viel ersparen können, hättest du die Fakten akzeptiert."}
        Tauschsätze = New String() {"Fürchte den Schatten der Aufersteht um dich zu treffen." _
                                    , "Ich werde dir Furcht in Hülle und Fülle zeigen."}
        Doppelgabesätze = New DoppelGabesatz() {New DoppelGabesatz("AIN", "GRAVES", "Ironisch wie jemand für Frieden kämpfen muss.", "Wenn jemand leben will, muss jemand anderes sterben.") _
                                              , New DoppelGabesatz("GRAVES", "AIN", "Menschen sind wie Wiesen. Das Gras bleibt und die Blumen sterben.", "Diese Worte werden für immer in Erinnerung bleiben!") _
                                              , New DoppelGabesatz("GRAVES", "MAVERIK", "Sie werden wieder sinnlos Menschen opfern.", "Das unvermeidbare, wenn Menschen denken sie wären stark!") _
                                              , New DoppelGabesatz("MAVERIK", "GRAVES", "Sinnlos!", "Ihr habt keine Chance.") _
                                              , New DoppelGabesatz("GRAVES", "THANATOS", "Zu denken sie könnten uns widerstehen.", "Ich liebe es ihre verrückten Träume zu zerstören.") _
                                              , New DoppelGabesatz("THANATOS", "GRAVES", "Kenne deine Feinde wie deine Freunde und niemand wird dich überraschen!", "Schütze dich ihn alle Richtungen und niemand wird es versuchen!") _
                                              , New DoppelGabesatz("GRAVES", "FALCONE", "Die ohne Ziel haben keine Chance.", "Hängende Menschen brauchen etwas wofür sie kämpfen!") _
                                              , New DoppelGabesatz("FALCONE", "GRAVES", "Die Narren denken sie haben eine Chance!", "Ihnen fehlt eine Vision und etwas wafür sie kämpfen.")}
    End Sub
End Class
